;;------------------------------------------------------
;; clean the screen
;;------------------------------------------------------
  undef("printcls")
  function printcls(n)
  begin
   do il = 0,n-1 
   print(" ")
   end do 
   return(0)
  end

;;------------------------------------------------------
;; say goodbye to NCL
;;------------------------------------------------------
  undef("printmpi")
  function printmpi()
  begin
   print(" ")
   print("      XX     XX    XXXXXXXX   XXXXXX")
   print("      XXX   XXX    XX    XX     XX  ")
   print("      XX XXX XX    XXXXXXXX     XX  ")
   print("      XX  X  XX    XX         XXXXXX")
   return(0)
  end

;;------------------------------------------------------
;; say goodbye to NCL 
;;------------------------------------------------------
  undef("printbye")
  function printbye()
  begin
   print(" ")
   print(" ")
   print("-----------------------------------------------------")
   print("---                    end                        ---")
   print("-----------------------------------------------------")
   print(" ")
   print(" ")
   return(0)
  end

;;------------------------------------------------------
;; print a string 
;;------------------------------------------------------
  undef("printa")
  function printa(str)
  begin
   print(str+"")
   return(0)
  end

;;------------------------------------------------------
;; print a blank line
;;------------------------------------------------------
  undef("printb")
  function printb()
  begin
   print(" ")
   return(0)
  end

;;------------------------------------------------------
;; print a solid line  
;;------------------------------------------------------
  undef("printline")
  function printline(nline)
  begin
   str = "" 
   do is = 0, nline - 1  
    str = str + "-" 
   end do 
   cmd = printa(str)
   return(0)
  end

;;------------------------------------------------------
;; print summary info 
;;------------------------------------------------------
  undef("prtsum")
  function prtsum(aa)
  begin
   print("")
   print("")
   printVarSummary(aa)
   print("")
   print("")
   return(0)
  end









